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** ABOUT MICRO-80 ** 

MICRO-80 is the first Australian monthly magazine devoted entirely to the 
TRS-80 microcomputer. It is available by subscription $24.00 for\ 12 months or 
by mail order at $2.50 per copy. A cassette containing all the proqrams in 
each month's issue is available for an additional S3. 50 or a combined annual 
subscription to both magazine and cassette, is available for $60.00. Special 

bulk purchase rates are also available to computer shops etetc. Please use 
the form in this issue to order your copy or subscription. 

The purpose of MICRO-80 is to publish software and other information to help 
you get the most from your TRS-80 computer and its peripherals. MICRO-80 is 
in no way connected with the TANDY organisation. 

** WE WILL BUY YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay 
royalties. An application form containing full details of how you can use 
your TRS-80 to earn some extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one app I ications program in Level 1 BASIC, one 
in Level 2 BASIC and one in DISK BASIC Cor Disk-compatible Level 2). We aslo 
publish Utility programs in Level 2 BASIC and Machine language. At least 
every second issue has an article on hardware modifications or a 
constructional article for useful peripherals. In addition, we run articles 
on programming techniques both in Assembly language and BASIC, we print news 
from TRS-80 Users Clubs, letters to the Editor and new product reviews. 

** ADUERTISING ** 

We accept camera ready copy for display advertising at the following rates: 

- FULL PAGE (19cm wide x 24cm high) $120 

- 1/2 PAGE C 13cm wide x 14cm high} % B0 

- 1/4 PAGE (19cm wide x 7 cm high) $ 30 

Classified ads ar& $8.00 for up to 50 words. Ads must be submitted bg the 
ISth of each month in order to appear in the following month's issue. A 

Company Order or payment must be included with the advert* 

** TRS-80 USERS CLUB NEWS ** 

We are prepared to print news of the activities of TRS-80 Users Clubs up to a 
maximum of 200 words per Club per month, space permitting. Copy must be TYPED 
with DOUBLE LINE SPACING and reach us NO LATER than the 15th of each month in 
order to appear in the following month's issue. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means 

that you must not copy it, except for your own use. This app I ies to 

photocopying the magazine itself or making copies of programs an tape or 
disk. 
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** EDITORIAL ♦* 



We I \ , MICRO-80 got off to a great start with issue 1. R lot of people who 
bought single copies "on approval * have sent in for subscriptions or ordered 
cassettes and many have written congratulating us. We've already had a number 
of programs submitted for possible pub I ication. We ar^ serious about, paying 
to publ ish your programs- For instance, we have paid out over $100 to readers 
for the programs publ ished this month. fts our circulation grows, we mil I be 
able to afford to pay even more. If you I ike MICRO-80, why not tel I your 
friends about us and encourage them "to take out subscriptions. That way the 
magazine will grow and you' 11 get even more progrms . 



One of our problems is finding interesting Level 1 programs. Most experienced 
programmers of our acquaintance work with Level 2. So, if you have a Level 1 
machine, why not send in those programs you have been working on, they' re 
probably just what we need . We' ve been asked if programs have to be written 
efficiently to be publ ished. The answer is no they don' t, as 1 onq as they 
perform adequately. We consider one of our objectives is to help TRS-80 users 
become better programmers. What better way to do this than to help each 
other. If we publ ish a program and you know a better way to acieve the same 
result then why not write in to explain it. We'll publish your letter and 
then we wil I al 1 learn something. 



f\ number of our readers have one or more Disk drives. There is now a wide 
variety of Disk Operating systems available including TRS DOS 2.1, 2.2, 2.3, 
HEWDOS, UTOS and DOS 3.0. Wq would be interested in publishing a review of 
these various systems so, if you have experience of using one or more of them, 
perhaps you'd like to write m with your opinions. Better still, maybe there 
is someone out there who has wide experience of most or al I of them and could 
write a comparative review single-handed. If so, we' d 1 ike to hear from you. 



Future plans include a series of articles on advanced BASIC programming . The 
objective is to help you improve your programming technique and make the most 
of Level 2 and Disk BftSIC . We envisage that this series will require a number 
of contributors and would I ike to hear from any of our readers who feel "they 
could write one or more articles. Hatura My, we will pay for all mater i a I 
pubi ished but, before sending in an article, write and tel 1 us the topics you 
want to ewer so that we can co-ordinate your efforts. 



We are also working on some hardware projects. The 1 iqht pen project was 
announced last month. It is proving to be a 1 ittle erratic in operation so we 
st i 1 1 have a few bugs to sort out. Look -for the article on it in about 3 to 4 
months time. Not because it is going to take that long to sort out but because 
it has now taken a back seat to an even more exciting project. We ar^t 
developing a memory expansion board wich wii 1 take a set of 4K chips and up 
to two sets of 16K chips, This board will connect to the back of the CPU via 
a cable and have its own power supply. It will cost very much I es than the 
expansion interface and will enable you to take advantage of the cheap 16K 
chios which arG available +rom a number of suppliers for around $110 per set. 
Using this board you could buy a set of ISK. chips install them in the CPU, 
then plug the 4K chips f*~om the CPU into the board thus qivinq you a 20K 
machine. Later you could buy another set of 16K chips and pluq them into the 
board to get a 36K machine. 0^ you could have two I6K sets in the board, 
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making a 48K machine. For those who want lots of memory but don't need Disk 
drives, this should be just the shot. It's a big project and will take 
several months to complete. In the meantime, we'd be interested to hear from 
readers mho mould consider buying such a unit. It is too early to be certain 
about price but u>e should be able to sell a fully assembled unit without 
memory chps but including cable, case and power supply, for around 1200. 

Rs you can see, things ar^ really happening at MICRO-80. 
** ABOUT™ OUST OWN" SV'5TEr^~7 RND LEUEL 1 ) ** 

MICRO-80 has a Leuel 2, 48K machine with lower-case modification, a single 
Disk dr iue and a Comprint 312 parallel interface printer. This month we haye 
composed the magazine using the Electric Pencil word processing program and 
the Comprint printer which prints characters in a 12 x 9 dot matrix on electro 
sensitive paper. 

We genera I I y * run our disk system under TRSDOS 2.2 but have recently acquired 
NEWDOS +. The Jaig advantage of NEWDOS + to a magazine such as ours is that it 
provides a Level i in Level 2 program. That enables us to write, evaluate, 
save, load, modify etc., Level 1 programs on our Level 2 machine. Printina 
Level 1 programs is another matter. Last month we had to convert our Level 1 
programs into Level 2 and print them out using the LLIST command. For this 
month, we have written a special machine language routine that loads into high 
memory (7000H). We use the NEWDOS SAVE* command to move the Level 1 poqram to 
8000H, then load and run our special LLIST routine. It lists the program, 
starting from the first 1 ine number, located at 8003H. 

In writing this special machine language program, we've learned some things 
about Level 1 BASIC which might be of interest to our readers. Level 1 BASIC 
programs start at 4200H . The first byte is 2A Hex or + in ASCII, The next 
two bytes give the program length in Hex, least significant byte first. The 
next two bytes then give the first I ine number in Hex, again least significant 
byte first. Then fol lows the first program I ine in ASCII terminated with a 
I ine feed ( 0DH ) . The next two bytes arQ the second \ ine number in Hex, least 
significant byte first, then the program I ine in ASCII and so on. Un I ike 
Level 2, Level 1 has no special end of program identification, since the 
length of the program is indicated at the beginning. Al \ this wil \ be clearer 
from the example below. 
** Example ** 
Consider the simple 2 I ine program: 

1 F.A=1 TO 5 
10 P.A:N.A 

Counting 2 bytes for each I ine number, one space between the I ine number and 
the program text and a Carriage Return at the end of each I ine, this program 
takes 25 bytes . 

A Hex dump of the memory block containing this program is shown below. 
4200 2A (19 00) (01 00) (20 46 2E 41 3D 31 20 54 4F 20 35) 
* length \ ine no. program 1 ine 

4210 (0D) (Oft 00) (20 50 2E 41 3A 4E 2E 41) 0D 
CR I ine no, program I ine CR 

The equivalent ASCII dump is*. 
4200 *. . . . F. ft=l TO 5 
4210 . . . P.A:N. A. 
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Compare the Hex dump with the RSC11 dump. The first byte 2AH, corresponds 
with the FiSCll * and is a start of program identifier. The next two bytes 
taken in reuerse order, ar^ 0019H, which corresponds to 16 + 9 = 25 (Dec). 
This is the length of the program. Since there is no ASCII character 
equivalent to these Hex numbers, they ar& shown as full-stops- The next two 
bytes, taken in reverse order, qcg 001H = 1 (Dec) which is the first line 
number. Again there is no equivalent ASCII character, so these ar& shown as 
full-stops too. The first program line starts with 20H, which is an ASCII 
"space", typed in as part of the program. Although when you list a Level 1 
program on the screen, a space always appears between the line number and the 
first program character, this space is not stored in memory so, if you want to 
conserve RAM, don't type in a space after the line number. The next byte is 
46H, equivalent to ASCII "F", the first instruction and so on to address 4210H 
which contains 0DH, the Hex equivalent of an ASCII Carriage Return CCR). 
Again, there is no ASCII character for a CR (it is a control code), so it is 
shown as a full -stop. Then follows the next program line until the 25th byte 
which is 0DH, the CR for the last line. 

-00000- 

********** NEXT MONTH' S ISSUE ********** 

The February issue of MICRO-80 will contain at least the following programs: 



HANGMAN (Li) 



- This program is similar to the Level 2 version 
pub I ished this month but, of course achieves the 
result in a different manner, since Level 1 does 
not support string manipulation. 



AMAZIN CL2) 



ANALOGUE CLOCK 

(L2 + m/c language) 



A program which generates a series of mazes on the 
screen, for you to find your way through. 

This program draws a large clock face on the screen, 
it uses high speed m/c language sub -routines to 
redraw the clock hands as theu move. 



SET 2 

(m/c I anguage ) 



This m/c language program adds a new graphics 
command to Level 2 BASIC - SET<X1 Y 1 , X2 Y2> which 
rapidly draws a I ine between point XI Yi & X2 Y2. 
It can save a lot of tedious programming and 
is much faster than BASIC graphics. 



MONITOR FOR BASIC 
< Inst a 11 ment 1 ) 
( m/c I anguage > 



This m/c language program, which will be presented 
in self-contained modules over the next three 
issues, greatly improves the versatit lty of the 
TRS-80 when programming in Level Z BASIC. For 
example, it gives you a MERGE COMMAND, which "hides" 
the resident BASIC program, allows you to load in 
another program, automatically renumbers it 
so that no I ine numbers clash and then joins the two 
together. Another instruction allows you to "hide" 
a program in memory, load another, modify it and 
save it and then return to the original program. 
It will also enable you to renumber BASIC programs, 
1 ist a\ 1 variables used, make system tapes and 
carry out a number of other useful functions. 



February's issue will also contain the next installment on Assembly Language 
programm i ng . 



QRRQR 
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** ASSEMBLY LANGUAGE PROGRAMMING ** 

This is the f irst article in a series which will continue for about six 
months. It is assumed that, at present, the reader has very I ittle knowledge 
about the inner workings of the TRS-80 or its Microprocessor, the Z80. This 
series w i M therefore start at a ygru basic level, defining terms* explaining 
memory mapping and so on. By the time the series is finished, however, we 
ujii ! have covered same quite sophisticated programming techniques and readers 
should have a good understanding of the Level 2 ROM, how to use many of its 
sub-routines in their own programs and what many of the addresses in reserved 
RAM are used for . 

In order to make the best use of these articles, you will need three programs: 
an Editor/Assembler, a Monitor and a Disassembler. Tandy can supply the first 
two. The Editor/Assemier is good but has two disadvantages. First, it is 
expensive ($59.95 on cassette, $139.95, for the mpre sophisticated disk 
version). Second, all source code, comments etc. , are stored in RAM in 
uncompressed ASCII format, this takes a lot of space, sometimes as much as 5 
or 6 times the length of the final object (machine languagG) program produed. 
When you consider that the Editor/fissembl er itself takes about 5K, if you have 
a 16K machine, you would be hard put to it to assemble an object program of 
more than about 2K. Many machine language programmers we know even run into 
problems with 32K machines. That having been said, the Tandy program is a 
good one and is convenient to use. However, if you ha v n't already purchased 
an Ed i tor xAssemb I er , you might i ike to wait a few weeks. MICRO-80 is currently 
negotiating with some American software suppl iers and we hope to be able to 
offer our readers an Editor/Assembler for no more than $45. 

Tandy' s monitor program is TBUG, It's greatest virtue is that it only takes 
about IK of RAM. A number of other monitors which ar& available, such as MON 
3 and RSM-2, ar^ much more sophisticated than TBUG but do take 3 to 4K of RAM. 
The major criticism of TBUG is its price. At $27.95 it really is not very 
good value. Again, if you can wait we should soon have a ^anqe of monitors, 
ft small one, equivalent to TBUG, for under $20. and more sophisticated 
monitors for about $28 to $30. 

Finally, there is the Disassembler. Tandy doesn't offer one nor, to our 
knowledge, does anyone else in Austral ia , except as part of the MON 3 monitor. 
In view of this, we are looking for a suitable, stand-alone disassembler to 
offer in our software range. We expect that all the above programs should be 
available from MICRO-80 by March. 

As a further help to the Assembly Language programmer, we are preparing a 
disassembled i i sting of the Level 2 ROM with comments and entry points for 
useful sub-routines, together with a detailed map of reserved RAM. This 
should be available as a separate publication in March. 

Tor the moment, however, let' s discuss some of the fundamentals of the TRS-80 
microcomputer. The heart of the TRS-80 is the Zilog Z 80 microprocessor. 
This is a third generation, 8-bit microprocessor. The first generation was 
represented by the 8008 and the second by the 8080. In developing each 
generation, the designers fol Sowed a poi icy of "upward compatabil i-ty* for 
software. This means that programs developed for computers using "the 8008 
will run on computers using the 8080 or the 2 80. This was achieved by 
preserving the basic 8008 instruction set (the codes which cause the 
microprocessor to carry out different operations such as moving data, adding, 
comparing., etc., ; through each generation. By the time the Z 80 was 
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designed, this instruction set and some of the basic "architecture* which went 

with it were rather outmoded, so the Z 80 has it's own more powerful 

instruction set, added to the 8080 set of 78 instructions. There ore 158 

different instructions you can use with the Z 80. 

Wait, before you turn over and go back to your BRSIC programs you should know 
that you don' t need to be total ly famil iar with a\ \ 158. Because of the 
upward compatabi 1 ity mentioned ear ■. \ ier, many of the 8080 instructions can be 
iqnorged because there ar^ much more powerful ones available in the new Z 80 
instructions. There are two schools of thought on learning Assembly Language 
programming. One says you should learn to crawl before you walk and use the Z 
80 1 ike an 8080 until you are "experienced" enough to go on to the Z80 
instructions. The other, and the one to which we subscribe, is that you 
should start off from scratch learning to use the Z 80 instruction set to its 
ful i capacity, There is no doubt that pogramming an 8080 is more tedious than 
programming a Z 80. Life' s too short to waste that way, so we wil I use the 
best instructions available on the Z 80 for each task, be they from the 8080 
sub-set or the new Z 80 set. 

Ft single Z 80 instruction is 1 ike a BRSIC command or statement but much less 
comprehensive. Whereas, with one BRSIC statement such as CLS you can clear 
the screen and return the cursor to its home position, to do the same thing in 
machine language would require dozens o-f instructions. In fact, when you use 
any BRSIC statement the Z 80 first converts it into a series of Z 80 
instructions, under the control of the BRSIC INTERPRETER program stored in the 
ROM (read-only memory). It then executes these instructions. This can result 
in the Z 80 carrying out hundreds or even thousands of instructions for one 
BRSIC statement. Therefore, if you write programs directly in machine 
language, (Z 80 instructions) a given result will be obtained many times 
faster than if you had used a high level language I ike BRSIC. 

Rs with any other computer, there are three fundamental components in the 
TRS-80: 

- CPU (Central Processing Unit), the Z 80 

- Memory to store programs and data 

- Input -Output devices so that you can communicate with the 
computer and it with you. 

The basic TRS 80 comes with three input-output devices. The keyboard, which 
is an input only device. The video monitor, which is an output only device 
and the cassette recorder, which is both an input and an output device. In 
addition, you can buy other output devices such as a printer or a voice 
synthesizer and input-output devices such as floppy disk drives or the R5 23ZC 
serial interface. 



The memory of a computer, is to a great extent, a measure of its data 
processing power, so computer owners usual ly classify their machines bu memory 
size eg. 4K , 16K, 32K, or 48K . K means 1024 bytes . The byte is the basic 
memory eel 1 , so a 4K machine has 4 x 1024 = 4098 separate memory eel \s in 
which information can be stored. In the case of the TRS-80. a byte consists 
of 8 binary digits (bits). If you or^ famil iar with physics, you could I iken a 
byte to a molecule and a bit to one of the atoms which go to make up the 
molecule. Since there or^ S bits in a byte and every bit can assume the value 
of either orl, there ar^. 2 to the power 8 = 256 possible combinations of 
bits and hence a byte can assume any value between and 255 (decimal ) 
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depending on the individual values of the bits which it contains. So. if you 
want to store a number between and 255, you can store it in a single memory 
eel I . But, if you want to store higher numbers, you must use 2 or more memory 
eel Is for each number. 



We mentioned that the byte is the basic memory ce M in the TRS-80 and that you 
can store values in these eel is, However, there is I ittle point in storing 
values if you can 1 t use them again later, so any computer must have some 
system for retrieving values from its memory. The TRS-BB, in common with all 
modern digital computers, uses a random access memory system (RAM). In. this 
system, every memory eel I has a unique location or address, just as houses 
along a street each have their own number. The Z 80 CPU has 16 address \ i nes . 
each of which can be on or off (© or 1). The maximum number of combinations 
for these address 1 ines is therefore 2 to the power IS = 65,536. The Z 80 can 
therefore address 65,536 unique locations (or bytes of memory). There are 
1024 bytes per K byte, 65,535/1024 = 54, hence the Z 80 can address 64K of 
memory, (Note that is the first address so that the highest address is 
65,535 not 65,536). 



There an=> three different types of memory used in the TRS-80 under this random 
access system. The first is ROM or "read-only memory". This means that the 
values are put into the memory by Tandy and can' t be changed by the user^ The 
2 B0 can read these memory locations, however., and act on the instructions 
contained in them. The ROM contains the Level 1 or Level 2 BASIC interpreter 
program which is always there. In fact, having the interpreter in ROM was one 
of the best features of the TRS-80 when it was first announced. Many earl ler 
computers required the user to load the BRSIC interpreter in from a cassette 
each time the computer was turned on. Imagine how tedious that would be! The 
ROM in the TRS-80 occupies the lower memory addresses: Level 1 from £> to 4095 
C4K) and Level 2 from to 12,287 (12K). On power up, the Z 80 goes straight 
to an address in ROM and starts executing the program contained there. The 
BRSIC program you write is actually data used by this interpreter program. 



Rn other Kind of memory used by the TRS-80 is Re ad -Write memory. This is 
"volatile" memory in which the Z 80 can store (write; data or from which it 
can retrieve (read; it. Ycu^ BRSIC programs ore stored in this memory and, 
when lou switch the computer off, you lose everything in it. Obviously, this 
is a petty important kind of memory, so why havn' t you ever heard of it? You 
have, out it is general ly referred to as RRM (for random access memory). Rs 
you can see from the above, it is no more nor less random access than ROM but, 
who ore we to argue with the crowd? From now on, we sha' ! r-Q-fer to 
read-write memory as RRM. There or& several important things to know about 
RRM , First of all , it occupies the higher memory addresses, start l nq from 
location 16.384 and, i- 1 " you can afford it, going all the ojay up to location 
65,535. You cannot place RRM in the first 16K memory locations because these 
are occupied by ROM and memoru -mapped devices (see below) thus the maximum RRM 
capacity in a TRS-80 is 48K. Rl\ RRM starts at memory address 16,384, 4K goes 
up to address 20.479, 16K goes to 32,757 and 32Kto 49,152. Finally, not all 
o+ RRM is available for your own programs, data etc- Some is reserved for use 
by the ROM. In Level 1 machines, the first 513 bytes of RRM or^ reserved 
whilst in Level 2 machines the first 812 bytes ank reserved* But don't feel 
cheated. This reserved RRM is a godsend for the machine language programmer 
as it lets you escape from ROM routines back to your own programs, thus 



e 1 1 i n a u o u ma k e use of 



of the programming done by Microsoft (who 



developed the Level 2 BRSIC ROM for Tandy 
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There are stil I 4K of memory locations unaccounted for, from 12,288 to 16,383. 
These addresses are used for MEMORY -MRPPEB Input-output devices. The upper IK 
(15,360 to 16,383) is used for the video display. This display has its 
set of Rfili chips and you can use them I ike any other part of RRM , with 



you 



can 



added advantage that 
following program: 

10 CLS 

20 FOR C= 15360 TO 15871 

30 POKE C,65 

40 NEXT C 



see 



whet 



in 



own 
the 



them 1 . Type in and run the 



We 11, you' ye filled ha\f the screen with fi's, so why is the prompt at the top 
of the screen? The reason is that you' ve stored the RSC11 equivalent of R 
directly into many of the screen memory locations without the cursor control 
routing knowing anything about it, as it would have. had you used a PRINT 
statement. Now add the following lines to your program and run it again. 

50 FOR O 15360 TO 15871 

60 POKE C,32 

70 NEXT C 



This time you cleared the screen by poking RSC11 spaces into its memory 
addresses and still the cursor control knew nothing about it. This gives you 
of how much is involved in a simple PRINT statement which not only 
a I ue into the correct memory address taut also advances 
to the next I ine and scrolls everything up when you 
finish printing the bottom line. Rl 1 the instructions to accomplish this arQ 
contained in a sub-routine in the ROM. In a later article, we will show you 
how to use this sub -rout ine to save yourself a lot of proqramming/debuqq ing 
t i me . 



an idea 

outs the appropriate v 

the cursor, moves ix 



The next most important use of the memory -mapped or^o is the keyboard which 
occupies addresses from 14,366 to 14,464. ftgam, in later articles we will 
show how to moke use of this information in your own programs. The rest of 
the memory -mapped ar^o is used to communicate with the printer, floppy disk, 
cassette etc. , or for interrupts or is not used at all, at least at present. 



We explained &ar\ ier, that the basic unit used by the TRS-80 is a byte which 
can ha -e 256 different values depending on the status of each of its 8 bits. 
The vjlue of o byte can be described in a number of different ways. Until 
now, u ^ have used the -Tamil lar decimal notation and that is the notation used 
by Tandy in Level 2 BRSIC. Rl 1 addresses ar^ expressed as decimals and, when 
POKE statements are used, decimal values ar& POKED into the decimal address 
specified, The decimal system would be fine if we were always dealing with 
numbers, but the value of a byte can represent things besides numbers. It 
might, for instance, represent a letter of the alphabet, or status information 
about the i ine printer- or an instruction code for the Z 80 microprocessor and 
so on. Rgain, we may not want simply to carry out mathematical operations on 
it. We may want to do some logic operations on certain bits or split it into 
two blocks of four bits rather than one of eight. Much of this would be 
difficult to do if we used only decimal numbers to represent the value of a 
byte . Rn a! ternat ive wou Id be to consider all eight bits individually. This 
involves the binary system of mathematics and because it is the most basic 
system, is often used in computers. Its disadvantage is that binary numbers 
are i ong and tedious to use ana it is very easy to make mistakes. 
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To ouerco'ie this the Z 80 uses a Hexadecimal system. This is a system of 
mathematics using the base 16 (decimal ). R single Hexadecimal number 
(identified by the suffix H) can have any decimal value between 8 and 15* The 
numerals 0-9 are used to represent the first 10 ualues then the first six 
letters of the alphabet, ft-F, are used to represent values from 10-15. 
Eg. 9H = 3 Dec, AH = 10 Dec, FH = 15 Dec. 

10H = 16+0 = 16 Dec, A2H = 10x16+2=162 Dec, etc. 
The great advantage of the Hexadecimal system is that it allows any 4-bit 
quantity to be expressed as one digit so that two digits express the value of 
any Byte. It can be easily converted to binary and is much easier to work 
with. Believe it or not, after a little practice, you will find it eas ier to 
think of memory addresses and byte values in Hex than in decimal . 

RSCll stands for American Standard Code for Information Interchange. It is a 
code, formulated several years ago, by which all of the characters that may be 
input from the keyboard or printed on the screen are represented numerical ly. 
Although ASCII is only a 7-bit code, B~bit bytes are always used to hold the 
ASCII values inside the TRS-80. Appendix C of the Level 2 BASIC reference 
manual 1 ists the codes. For example, 65 is the letter "A" and 32 indicates a 
blank space, Although the TRS 80 can only display upper case I tters , it can 
both input and output lower case letters. If you hold down the shift key and 
type any letter, you or^ actually typing a lower case letter although you'd 
never know it because it is displayed in upper case. (Note that this is the 
reverse of typewriter keyboards). Furthermore, if you type in a EASIC program 
in lower case, it will still work. The only discrepancy is with the *£", if 
you PRINT Q somewhere and type a lower case u $', it won J t work. 

The important point about upper and lower case is that the TRS-80 is fully 
capable of computing with lower case letters, it merely can' t display them on 
the video monitor. In fact, the TRS-80 has most of the hardware required to 
display lower case letters and there is a simple modification to enable it to 
do so. We have converted ours and find it very useful when using the Electric 
Pencil . In a future issue, we wil i describe how to carry out this conversion 
on your computer for just a few do 1 1 ars . 



The 7-bit ASCII code has room for 128 values, but not all of these ar^ used 
■for displayable characters. The first 32 values (.0-31) are used for control 
codes, which are also described in Appendix C. Since the 7-bit values are 
always kept in 8-bit bytes, that leaves room for 128 more values for special 
purposes. The numbers from 129 to 191 arG used for Graphics codes whilst the 
remain inq numbers *'rom 192 to 2S5 are used for space compression codes. 
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Numerical values used in calculations are stored in several ways. The 
simplest are BRSIC integers, which are held in 2-byte numbers. The maximum 
value of an integer is 32,76? rather than 65,535, because the first bit is 
used for the sign, so that you can compute with negative numbers, That 
explains why, when you want to POKE a value into an address above 32,757 you 
need to use the formula "POKE" - I* (address required - 32767), XX". There is 
an unusual feature about 2-byte integer numbers in the Z 80 when they ar-Q used 
to represent addresses of memory locations. The two bytes ar& stoed 
"backwards* in memory, so that address 1234H would be stored in memory as : 

XXX 1H 34 

XXX2H 12 
This is a hangover from the days of the 8088 and 8080. Just remeber when 
interpreting addresses from a Hex 1 isting of memory contents the least 
significant byte comes first, followed by the most significant byte (see the 
paragraph in this issue headed - ftbaut our own system (.and Level i) ). 

The storage and manipulation of single-precision and double-precision, 
floating-point numbers is a much more complicated process and will be a large 
part of the contents of a future article. Mext month we wii l discuss the 
architecture of the Z 80 and start looking at its instruction set. 
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i-ame 



IF"E continued ** 



On 1 u ijjh en the new disDiat 



eady is it transferred to screen memoru, 



Bluntly it is the last of the rules that makes Life rather difficult to set up 
on. a compute?^ with reasonable running speed. It is also this last rule which 
makes possible some of the very beautiful and interesting patterns which 
develop as each successive generation is displayed. 

The original concept of Life was that the overal I population would enjoy 
periods of growth and expansion, suffer periods of recession and contraction, 

and that, in all cases would stabi! ise - wi 



contract l or, 
pattern . 



that 



repeats 



cont l nijo i.j s I u , 



either a pattern of growth and 
or with a stable and non -changing 



This has a! waus proved to be the case 
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The 1 istings for these programs are at the back of the magazine 
explains what each program is about and how to use it. 



This section 



** RICOCHET - L1/4K ** 



by C. BartlQtt 



4K users will haue to use full abbreviations and all multiple statement 1 ines 
in order to fit this program in. Unfortunately, our nice new machine language 
LLIST program mentioned earlier in this issue, introduced one or two new 
statements of its own, so we have had to convert Ricochet to Level 2 and LLIST 
it that way. Remember to use PRINT RT instead of PRINT $. Otherwise, 
everything should be straightforward. 

This program commences by drawing a wa 1 1 down the centre of the screen. 
Randomly spaced along the wa 1 I ar& seven gaps and 1 ined up with these gaps or^. 
seuen targets to the far right. Walking up and down the screen at the left is 
a man. When you think he is in the right position, press the "Pi" key, the man 
will stop, raise his arm and fire. If you stopped him corrctly the bullet 
will pass through the gap in the wall and hit the target. If not, the bullet 
will ricochet off the wall and kill him! 

You have 3 men and 7 targets per game. Pressing the "ENTER" ke will cause the 
man to reverse direction. Sounds easy doesn't it - try it!!) 



** FRUSTRATION L2/4K ** 



by Peter Hartley 



This is a good party game for kids. When you run the program, a pair of Zeros 
flashes randomly and rapidly in the centre of the screen. Rt a random time, 
this "clock" starts counting. The idea is to push any key as quickly as 
possible after the clock starts running. If you push too early, the computer 
accuses you of cheating and then the clock starts all over again. Fitter ten 
tries, the computer prints out your highest and lowest scores and the number 
of times you cheated. It also computes a X rating i.n accordance with the 
formula in ! ine 330 . Just a warning, if you don't like having the keys on 
u,our computer bashed, go on to the next program 1 



** HRNGMRN L2-MK ** 



b y Be r n i e S i ms o n 



It turned out to be 



Last month, we advertised this program for LI mahines. _, 

for L2 machines. It can be done on a LI machine - we've got a ha 1 f -deve 1 oped 
program to do it. It's a lot more difficult of course, because you can't use 
string manipulation. We will publish the Li Hangman next month. In the 
meantime, those with L2 machines can enjoy this uery well presented version by 
Bernie Simson. This is a good educational game for kids from about 6 up. 



If you ! 
mach ine 
profess i 
then pr 
represen 
i etter . 
p o s ltion 
with a 
o -f the n 
c horde 
this one 



e a v e out 
( just ) . 
ona I (pr 
i n t s qij 
ts a I et 
If it , 

(3), If 

man on 
ice feat 
r ijjor d , 



lines 2-9 inclusive, Hangman should fit into a 4K Level 2 

The game starts by asking you whether you oro. o novice or 

ofessionals get harder words). It explains the scoring and 

a series of dashes near the top of the screen. Each dash 

ter so, 5 dashes - 5 letters in the word. You then enter a 

s contained in the word, the computer puts it into its correct 

it is not in the word, the computer starts drawing a scaffold 

it.. Too many errors and the man (that's you) gets hanged. One 

ures about this program is that, if you win, next time you get 

but if you lose you get an easier word. We know you' U enjoy 
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** GfiME OF LIFE L2/16K ** 



by Peter Hartley 



This program is in two parts, a machine language sub-routine 
most of the computations and a BftSIC program used t 
parameters. The BBSIC program cal Is the machine language pro 
command. To enter the program -first answer the Memory 

20479, then, using a suitable monitor,, type in the machine 
from the Hex l isting. Rt this point you should use your 

system tape. Parameters are:- Start 5000H, End 519RH, Entry 
the BRSIC listing and CSRUE that. To start, simply enter 
program wit \ take oyer control and cal 1 the machine 1 anguag 
-pquired, When re-loading LIFE -from tape first protect memo 
the machine language sub-routine using the system command, 
then CLOftD the BRSIC program and run it. 



which carries out 

o set up initial 

gram via the USR 

Size question with 

\ anguaqe prqram 

monitor to make a 

0008H. Now enter 

RUN and the BASIC 

e sub -routine as 

ryi size then enter 

return to BRSIC 



The game of ! i-fe was original ly discussed in The Scientific American some 
eighteen years ago. It isn't really a game at all, but a rather complex set 
of rules governing the growth of eel Is Cor civil isations), which this 
programme illustrates graphically on the TRS-88' s screen. 



The rule?, are gs * o \ •. ows '* - 

l") Each eel 1 ( 2X by IV in this version) is capable of 1 i-fe 

2) Life will be created in a cell location if it has exactly three living 
re i ghbour s 

3) Life will continue if a cell has only two or three living neighbours 

4 ) Life will cease if a cell has less than two 1 i v ing ne i ghbour s (we ail need 

some companionship!) 

5) Life will cease if a celt has more than three living neighbours (since 

three cells aro required to create life, it sands to reason that "four's a 

crowd" therefore f jue is unl iuable! ) 

bi Hi 1 births and deaths must occur simultaneously. 



This wer^ion o+" I ife is in two parts. The Basic programme is quite self 

exDianatory, offering the option of user or computer generated starting 

patterns, variable generation speeds (up to one per second), and single key 
termination at any time. 

^he machine language routine does all the real work, making massive use of 
subroutines. Each run through this routine will create one new generation. 



r l r s t of 
e J i m i n c t e 



a i 1 tv 
annou i n ': 



screen display is dupl icated into memory. This is to 
a! itches" as the display is accessed through the routine. 



Each pair of bits (.0-1,2-3, and 4-5) or^ treated as one 

vertical stretching of the display - and each d is lay 

separately. The top and bottom 1 ines ar^ "ma 

version does not permit any vertical * wrap-around " , but it does occur 

'horizontal ly. If uoo don' t want this you wil I need to add a 

routine, to reset X@. XI, XI2G, and X127 right down the screen prior 

USR call. 



th i s e I i minates 

ine is treated 

sted' at this stage. This 

it does 

ine to the bas ic 

to the 



In turn, the neighbours of each bit-pair (or cell ) aro. examined to see whether 
or not they ar^ i lve (set), R ta! ly is kept and a second display is gradually 
built up in memory, on the basis o*f the rules outlined above. 

*+ Continued on Paae 12 ** 
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** STOCK RECORDING SYSTEM L 7JA\i ** by Keith Neighbour 

This program is really neat as it illustrates a method of sorting which is 
del ightfut ly s i mp \ e tout which we haue never seen used before. The idea, is to 
make part ot the stock, number a-f your items the same as the I ine number where 
its data is stored in the program. You do this by entering the information as 
a DftTfi statement. The TRS-8S then stores this information in order of I ine 

number C and hence stock number). You can then I ist or print out any 
information you want about the stock items and they will be I isted in 
numerical order. Simple isn't it. Why didn't we think of it first? 



fact, th 



program was originally written to help a Tandy Store Manager 



keep track of" his own stock, soles etc., and it has proued very useful . Rs 
we! ! as a A d 1 a i t serial number, Tandy uses a 2 digit series number, as a 
prefix. The program, as \ isted, will list all items in any nominated series, 
and compute the total sales ualue by multiplying the change in quantity of 
each item by its selling price and totalling them. It will also list out the 
oat a concerning each stock item and of course, new stock items can be added or 
information about existing ones altered. In order to show you how it works, 
the following examoles have been included: 



Ser i e s 

12E? 
12& 
14 

4 8 
21 
12 



Cat. 

654 

655 

841 

978 

996 

1313 

134P. 

1373 

1984 

2081 

2432 

9458 



Lines 1 to 9999 are reserved -for the data statements. Line 9999 itself is 
used o? on &nd of data marker, When the program is I isting items and 
encourr.ers 9999 ir o. data I ine, it knows it has reached the end of the stock 
! ist. Vou can. of course, use any va\ id 1 ine number for your DftTR statements, 
but. vi <■ e sure uou don' t crash the program itself, which is best kept as a 
b \ o c k j f ! i n e. n u mb e r s o n its o wn . 



Type in the program and run it . ft menu will be printed out on the screen. 
Enter the appropriate number for the action you want to take. Ful I 
instructions a^p irr. luded in the program. They do need careful reading. Don' t 
forget to enc \ ose the date in " " s because it is rBad from the data statement 

by a s t r : n q variable. 



Thp; logic behind thi? program can also be used to write a simple, data -base 
management system. Keith nas one of those too, which we wilt publish next 

month , 
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** MONITOR IN BRSIC L2/4K ** by Ian Uagg 

This program makes use of PEEK and POKE statements and also HEX^DEC and 

DEC /HEX convertor sub-routines to allow you to examine and modify memory 

location. It will enable you to key in the machine language programs tue 
pub 1 ish even i -f you haven' t got a m^c language monitor. 

But, perhaps best of all, it a I I ous you to dump the contents o-f a block of 
memory to tape andi then load it again. Admittedly it is slow, but it works. 

First of all , you specify the program title and its start, end ana entry 
addresses. These arQ recorded on to cassette as data using the PRINT*-!, 
statement. Then 60 bytes of memory ar^ PEEKed at and their contents are 
packed into a string variale, using a minus (-) sign as a separator. This 
string variable is then recorded as ddata and so on until the whole block is 
dumped. The loader program carries out the reverse operation and POKEs the 
data back into the addresses it came from. It is slow because each S0 bytes 
is separated by the 4 second tape leader. Nevertheless, it does enable a 
standard Level 2 machine, working in BASIC, to load and save machine language 
programs on tape. 

After you haue entered the program, type RUN and a menu vuil I be displayed on 
the screen. This should be self explanatory. You can return to the menu at 

any t i me by entering H. 

-00000- 



** CORRECTIONS ** 

DIGITAL CLOCK. (December Issue) Wei I , it happens to everyone else and now it 
has happened to us. There were a couple of errors in the ! i sting of the 
Digital Clock program published last month. Those who ordered their magazine 
later in the month got copies corrected by hand C ugh * ') . For the rest of our 
readers please make the following changes: 

Line 260 GOTO 400 

Line 285 change the I ine number to 245 



** ADUERTISEMENT ** 



FOR CUSTOM PROGRAM DEVELOPMENT OR HELP WITH WRITING YOUR OWN PROGRAMS, CONTACT 
PETER G. HARTLEY, 57 MAIN AOENUE FREWUILLE, S . AUSTRALIA. -REASONABLE RATES. 
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can be made to 



** HfiRDWRRE SECTION ** 

Last month we published details of some modifications which 

improve the operation of the earlier cassette recorder supplied bu^Tandy" th* 
Ll> 41. Some of these were designed to giue the CTR-41 many of th* fpaturPs 
of the newer CTR-80, others allow you to hear your CLORDs snd CSRUEs and would 
De usefu' on a CTR-80 also. Last months instructions should enable uou to 
carry out this mod. 



the 



One problem peculiar to the CTR-80 is that, with some models, if you ,.*e 
recorder STOP key whilst loading, a pulse is recorded in the middlp of your 
program and the tape is unusuable. Apparently the outse is caused by an 
inductive spiKP from the motor, finding its way to the recording head. Tandy 
have fixed this on models manufactured after 1975. Look inside "the ba+tppy 
compartment of your recorder. There should be a sticker carruinq the serial 
number. ^Rfter the serial number ar& three or four characters such~as I0R5 or 
1H9. ihese record the manufacturing date. The first number (. I Q r- 10 in the 
example) is the month of manufacture, 1 - January, 10 = October etc. Th* R is 
a separator and appears to have no significance (it probablu means 1970' O 
Thejast number is the last digit of the year of manufacture, ~8 = 1978, 8 = 
19?y etc., If your recorder was manufactured earlier than February 1^78 ( 2R9 ) 
then you probably have this problem. Various fixes have been tried, including 
diodes and large capacitors across the motor but we recommend that you take it 
back to Tanxy , who should fix it for free. 
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** LETTERS TO THE EDITOR ** 



From: E. J. MONAGHRN . "WRRRRWEE" GREENWELL RD 
Tel. (044)47 1743^1728 



PYREE NSW 2540 



We or^ using a TRS--80 Level 2,32k with two disk drives and a Line printer to 
control a Freisan Dairy Stud of about 50B animals and some farms. We would be 
interested in contacting by letter or 'phone. anyone wh o is using or 
considering using a TRS-80 for rural purposes or mho has software on cassette, 
disk or* 1 ist inq which we may be able to concert to our use. We will accept 
reverse charges for 'phone calls. 

We wonder if you are considering the supply of" the programs on disk, as we 
wo uld prefer to buy disks. 



•If anyone can help, please contact reader MONRGHRN direct). Rs far as disks 
•are concerned, we have no plans to supply them at present, There is a number 
of qoog reasons. First, they aro^ much more subject to damage in transit than 
cassettes. Second, there is the question of copyright. To supply a program 
on disk would involve also supplying some component of TRSDOS which, of 
course , is a Tandy copyright. Tandy has already warned some program pub I ishers 



the 



uc 



i n t h e S t a t e s 

TRSD03 a isks . 

the once , 

program. If 

record t n e m 

post to u s . 

a cassette). T h e c h a r a e . 

for this purpose, since at 

to provide. However, 



n r t 



t they face legal action if they continue to sell programs on 
at' s a hassle we don' t want at present. Finai ly, there is 
e price of the disk would swamp the price we charge for the 
real 1 y must have programs on disk, we would be preoared to 

J u o u - 



own minimum system disk which you would have first to 
Vo^ this we .'jjould make a charge of S5.0Q i. insted of the $3.5© for 



au i t e fr ank 



y is to discourage you from using disks 
present, such a service would be difficult for us 
f this reply meets with a storm of protest from 

So it' s over to our 



disk-drive owning readers, me wi \ 1 reconsider our po! icy 
readers - Ed.) 
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From Dr. JOHN CASTLE, Brighton S.fi- 

In your subsequent issues, perhaps you may be ab! e to help me and others, by 
publishing the following: 

1. A machine language routine similar to that in G2 Level 3 
which gives the BREAK Key a Level 2 type RESET function. 
This would be very useful when the computer locks up and the 
expansion interface is connected. 

2. How to get into and out of ROM to use existing routines 
in ROM in one' s own machine language program. 

C'You' 11 no doubt be interested in our Assembly Language Programming series, 
starting in this issue. That series wil 1 certainly couer point 2 very 
thoroughly over the next few months. As far as the BREAK key routine, we 
agree it would tae useful and will look into it in the near future. If anyone 
has already written such a program, why not send it in and we wil 1 pub I ish it 
and pay accordingly - Ed.) 

From R.F. M00RH0USE Oakleigh Uic. 

It would be helpful if you could pub) ish a \ ist of forthcoming programs in 
■j our magazine. This would help readers decide whether a 12 month subscription 

is practical. 

I wish we knew' Each month we publ ish a MINIMUM 1 ist of programs for the 
toi lowing month and we give as much information as we can concerning 
forthcoming articles of general interest. constructional articles etc. 
However, many of the programs which we will be publ ishinq will be coming from 
our readers and we hayn' t received them yet. Mor do we real ly know what 
readers want - until we hear from them ouer the next few months - Ed . > 

-00000- 

** STOP PRESS ** 

** NEXT MONTH'' S PROGRAMS ** 

In addition to the programs described on Page 4, February's issue will also 
contain c BIORVTHM orogram and a simple DATA-BASE MANAGEMENT SYSTEM, both for 
L2/4K machines. 

- 00Q08 - 

** USERS CLUB NEWS ** 

Thp ^DE^TDF TRS-80 USERS CLUB meets at the Gawl er Place TANDY shop at 7.30 pm 
on the f ; '- - J Thursday of the month. The next meting is on Thursday 7/2/80. 

-00000- 
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1 REM AUTHOR C . BRRTLETT :1979: RICOCHET 

S CLS:R=0:RC 1)=0: Q=2: Z=l : 5=4: T=40 : U=l : U=43: GOSUB3000 

IB RESTORE 

12 FORX=0TO127 : SET C X , ) : SETC X , 47 ) : HEXTX : FORY=0TO47 : SET C 127 ,Y): NEXTY 

20 RERDR , B . C , E , E , F , G , H , I , J , K , L , M , N , 

25 DRTft7,8,9, IB , 1 1 , 12, 13 , 14 , 32, 33 , 34 , 35 , 36, 37 , 38 

30 SETC S,T): SETC U , U ) : PRINT$798; 'RICOCHET" ; 

50 SETCD, I ):SETCE,I ) 

55 SETC fi,J): SETC E , J ) : SETC C , J ) : SET C D , J ) : SETC E , J ) : SETC F , J ) : SETC G , J ) : SETC H , J ) 

SS FORY-KTOL : SET (. R . Y ) : SET C C , Y ) : SET C D , Y ) : SET ( E , Y ) : SETC F , Y ) : SET C H , Y ) : NEXTY 

75 F0RY=MT00 : SET C C , V ) : SETC F , Y ) : NEXTY : SET C B , O) : SET C G , O ) 

36 IFCPOIHTCS,T )~© )*C POINT C U, U ) = 1 ')GOSUB1000 

37 IFC POINTC S , T >=£ )*C POINT C U , U )=0 )GOSUB2B03 : SETC IJ , U ) 
88 D RINT@832; " " ; : IF2=1G0T096 

90 RESET C F , ) : RESET (. G , ) : SETC G , N ) : Z=l : IFQ=1RESETC G , 0- 1) 
32 G0T097 

96 RESETS B . > : RESET (C,0): SETC B , N ) : 2-2: IF0=1RESETC B , 0- 1) 

97 IFQ=1 GOT 0105 

100 1 = 1-1: J = J- 1 :K=K-l:L=L-l:M=M-l:N=N- 1:0=0-1 

101 IFI=1Q=1 

102 GOTO 12S 

105 1 = 1+ 1 : J = .J+ i : K=K.+ I : L=L+ 1 : M=M+ 1 : N=N+ 1 : 0=0+ 1 

106 IF0-37Q-2 

107 GOTO I 32 

1 20 RESET C R , L+ 1 ) : RESET C B , J + 1) : RESET C B , 0+ 1) : RESET C C , 0+ 1) : RESET C D , L+ 1) 

1 30 RESET ( E , L+ 1) : RESET C F . 0+ 1) : RESET C G , 0+ 1 > : RESET C G , J + 1) : RESETC H , L+ 1 ) 

131 GOTO150 

132 RESET C ft , J - 1) : RESET ( B , J - 1 ) : RESET C C . J - 1) : RESETC B , I - 1 ) : RESET f E . I - 1) : RESET C F , J- 1 
) 

150 RESET C G , J - 1) : RESET C H , J - 1) : PRINT $832 ; n * ; : GOTO50 

10Q0 RESETr h , K ) : RESETC H , L ) : SETC H+ 1,K): SETC H+2, L ) : RESET C H+ 1 . K ) : RESET C H+2 , L ) 
1005 SET C H+ 1 , J ) : SET C H+2 , K ) : RESET C H+2 , K ) : SET C H+ 1 , J ) : SET C H+2 , J ) : SET CH+3, J ) 
1053 P=H+4:W=J 

1060 SET C P , W J : RESET t P , W ) : P=P+ 1 : SET ( P , W ) 
1082 IFC POINT C P+l , W ) = 1 ) + C P<60 ) GOT 01 200 
1084 IFC POINT ( P+l , W:-=l )*CP>S0)R=R+1 : GOSUB80S0 
1090 IFP=125RESET , ^ , W > : G0T01 1 10 
1100 GOTO1060 

1110 RESET CH+3, J ): RESETC H+2, J ): SETC H+2, K ): RESETC H+2, K ): SETC H+l ,K >: SETC H+2, L ) 
i 1 15 RESET C H+ 1 , J ) : RESET CH+i, K ) : RESETC H+2, L ) ; SET C H , K ) : SETC H , L ) : SETC S , T ) : SET C U , U ) : 
RETURN 

1200 RESETC P , W ) : P=P- 1 : SETC P . W ) : IFPOINTC P- 1 , W)=1GOTO1250 
1240 GOTO I 200 

12S0 RESET C H+ 1 , J ) : RESET C H+2 , J ) : RESETC H+3 , J ) : RESET C H+4 , J ) : RESET CA,K): RESET C ft, L ) 
.2SS SETC H.I): SETC H+ 1 , I - 1 ) : SETC ft- 1 , K ) : SETC R-2 , L ) : RESETC H , I) : RESETC H+l , I - 1) 
1270 RESETCR- l.K ): RESETC R-2, L): SET CH, I ) : SETC H, I - 1) : SETC ft- 1 , J ) : SETC R-2, J ) 
128R SETC ft-3, J ) : RESET C ft- 1 , J ) : RESETC R-2, J ) : RESETC ft-3 , J ) : SETC R , I) : SETC ft, I - 1) 
1230 SET i ft, 1-2): RESETC ft, 1-2) 

1300 RESET (ftj > : RESET C ft , I ) : RESET C ft , I - 1) : RESET C D , I ) : RESET C E , I) : RESET C H , I ) : RESETC H 
,1-1 ) 

1326 SETCG. I- 1 :i:SET{. G, I): SET CH+I, I ): SETC H + 2 , 1) : SETC H+4, I) : SETC H+4, I- 1) 
1330 RESET C C . L) : RESET C D . L ) : RESET C E , L ) : SET C G , L ) : SET C H , L ) : SET C H+ 1 , L) 
1340 RESET f C , K. ') : RESET ( B , K ) : RESET C E , K ) : RESET C F , K ) : SET C G , K ) : SET C H , K ) : SET C H+ 1 , K ) 
1345 I ET ' H + 2 . K = : RESET C C . J ) : RESETC D , J ) : RESETC E , J ) : RESET C F , J ) : SETC H+ 1 , J ) : SET C H+2 , J 
) 

1350 SET C H+3 , J .< : SET C H + 4 . J ') : RESET C C , M ) : RESET C C , N ) : SET C B , N ) : SET C E , M ) : RESET C F , M ) 
1360 RESET ( F , N ) : SET iH,N): SET C H+ 1 , M ) : RESET (RJ): RESET C B , J ) 
1410 SET C B . N. ) : SET ( . B , ) : SET < . C , ) : SET C D , ) : SET C E , ) : SET C F , ) : SET C G , ) : SET C H , ) 
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1 428 SET ( G , N ) : SET ( H , N ) : SET C H+ 1 , N ) : SET C H , M ) : SET C H+ 1 , M ) : SET C H+2 , M ) 

1430 SET C H+l , L ) : SET C H+2 , L) : SET( H+3 , L) : SETC H+4 , L) : SETC H , K ) : SETC H+2 , K ) 

1 440 SET C H+3 , K ) : SET ( H+S , K ') : SET ( H , J ) : SET C H+6 , J ) 

1500 RESETC G, I- 1 ): RESETC G, I ) : RESET ( H+l , I ) : RESETC H+2 , I ): RESET (H+4, I) : RESETC H+4 , 1 - 

i ) 

1510 RESETC D, N ):RESET<E,M) ".RESET CF,L): RESET (G,L): RESET CH,L): RESETC G, J): RESETC H+l 

. K ) 

1 520 RESET C H+4 , K ) : RESET C H+ 1 . J ) : RESET ( H+2 , J ) : RESET ( H+3 , J ) : RESETC. G , K ) : RESET < H+4 , J ) 

1540 RESET ( H , J :i : RESET f. H , K ) : RESET C H+S , J ) : RESET C H+5 , K ) : RESET C H+2 , K ) : RESET C H+3 , K ) 

1 550 RESET C H+ 1 ? l : RESET ( H+2 , L ) : RESET ( H+3 , L ) : RESET ( H+4 , L ) 

1560 RESET (H,M»: RESET (. H+ 1 , M ) : RESET C H+2 , M ) : SET C H , ) : SETC H+1,0): SET C H+2 , ) 

1570 SET C H + 3 . ) : SET (. H+4 9 ) : SET C H+5 9 ) : SETC H+S , ) : SET C H+7 , ) : SET C H+2 . N ) 

1590 SET < H+3 , N ) : SET C H+4 , N ") : SET C H+5 , N ) 

1600 FORX=1TO2000: NEXTX : FORX-BTOH+7 : RESET CX,N): RESETC X,0):NEXTX : AC 1 )=AC 1 ) + l 

IBS© IFAC 1)=3THEN1670 

1660 PRINT»862;R; " TARGETS HIT * ; : PRINTS92S ; " AND " ; AC 1) ; * MEN ARE DEAD"; 

1663 SET i 5, T >:SETf U . U ') : RETURN 

i5^e PvINTwBSZ; *mLL VOUR MEN RRE DEAD "; 

1675 P : 'TNT$g26: " " ; 

_580 F )PX---1TO3000:NEXTX:GOTO5 

2000 1 F 0= 1 0=2 : SET f 5 , T ) : SET C U , U ) : RETURN 

2005 1FQ = 2Q- 1 : SET C S , T ) : SET C U , K) ' : RETURN 

3000 FORX=60TO70 : F0RY=2T032 : SETC X , Y ) : NEXTY : NEXTX 

T ;801 A=0: X=S0 

T-":0S 3=RNBC 30 ; : IFC B >30 ; + CB<3 )GOT 03005 

2006 IPC POINT e. x+ i , B )=0 ) + C POINT C X+ 1 , E+ 1 )=0 ) + C POINT C X+l , B- 1 )=0 )GOTO3005 
3010 FORX=60TO"0: RESETC X , B ): NEXTX: SET C 110, B) 

30 IS A=R+1 : IFA=7RE"URN 

3060 X-60 : GOT 03005 

6000 RESETC P , W ) : RESET (. P+ 1 , UH : P- 125 

6020 PRINT@862;R; "TARGETS HIT B ; :PRINT©92S; U AND" ; AC 1 ) ; * MEN ARE DEAD 

8040 IFR=7CL5:PRINT<»798: "RICOCHET' ; :PRINT@862; "YOU WIN ' ": FORX-1TO3000: NEXTX 

60S© IFR^GOTOS 

B0P^ RETURN 



UJ " JSTRATION. 

10 p. 5 v-vRIGHT or-p Gt HARTLEY, 57 MAIN AVENUE, FREWVILLE. 

VUT •^-"■RALIA, 5063:- SEPTEMBER 1S79 

130 P c *LOiV. S%=9999' CLS: GOTO 198 

l*i0 ** -^v*"; : T^ V 1?PR1NT^P,K^:ELSEPRINT€»P-2,K^ 

150 Tj« = H ' : LS-INKEYt: iriJ$= H 'GOTO140 

150 i- KV S W%THP" J ^;-^ 

170 IPPV, 5%TH r >-T^'^ 

130 RETURN 

190 GOSUE350: P-S40: Pl-1 : FORQ= 1T0 10 : K°/.=0 : GOSUB210: GOSUE140: NEXT : GOSUB300: PRINT^P- 

5, - ' ; :rORT=0TO1000: NEXT: PRINT : PRINT m PLAY AGAIN?"; :D»="' 

200 D*-INKEYS: : p Tj%-- a tt THENGOT 0208 : ELSE IFES="Y" THENCLS: CLEAR: GOTO370 : ELSECLS : PRINT 

*BYE. ' :END 

210 FORDV.=0TORND( 0250 > : GOSUB270 : PRINT©P-4 , " ' : GOSUB220 : PRINTER, K»: NE 

XT : RETURN 

220 Z%=RNIK 6 ) : ONZ>.GOSUB230 , 246 , 250 , 260 , 250 , 2S0 : RETURN 

230 K*= ,, " :RETlJRN 

240 K5= H 0": RETURN 

258 K*="00" : RE'TLIPN 



MICRO-80 



P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA page 19 
TELEPHONE (08)3818542 

260 KS=* " : RETURN 

270 D$=" " : DS^INKEYS: IFD*^ "THENRETURN: ELSEGGSUB298 

280 RETURN 

298 C5i=C5fi+l:FORF=@TO10:PRINT#P-2 f *CHEftT"; : FORT =0TO60: NEXT : PRINTER -2, " " : FORT 

=0TOG0: NEXT : NEXT : RETURN 

300 CLS:IFC%>1PRINT$0, "YOU HRUE BEEN FOUND GUILTY OF CHEATING" ; C%; "TIMES, ': ELSEI 

FC%=1PRINT®0, "YOU HAUE BEEN FOUND GUILTY OF CHERTING ONE ! " : ELSEPRINT 

310 PRINT© 128, "YOUR BEST SCORE WAS^S* 

320 PRINT@256, "YOUR WORST SCORE WAS";W* 

330 R=C 100-CCV.*5))*(. 108-S%^/100:PRINT@384, "YOUR RRTING... m \R\ m \ m 

340 RETURN 

350 CLS: PRINT CHRSC 23 ); "F RUSTRRTION 

ft GRME OF SKILL FOR PEOPLE 

WITH LITTLE ELSE TO BO..." 

360 FORT-6TO2000 : NEXT : CLS 

37Q PRINT 00, ll 

WATCH THE ELECTRONIC CLOCK IN THE CENTRE OF THE SCREEN. 

WHEN IT STARTS TO COUNT, YOU RRE REQUIRED TO STOP IT - 

RS QUICKLY RS POSSIBLE - BY PRESSING RNY KEY. 

SOMETIMES IT TRKES R LONG TINE TO STRRT , THOUGH,"; 

380 PRINT" 

RNB IT ALWAYS LOOKS RS THOUGH IT S RBOUT TO STRRT! ! ! ! ! ' 

330 FORT=0T 06000 : NEXT : CLS : PRINT CHRSC 23 ) : RETURN 



2 ' HANGMAN GAME. AUTHOR: BERNIE SIMSON, 13 EULLER TCE, 

4 ' CHELTENHAM STH RUST, 5014. PH 47 7S2S 

6 ' NUMBER OF WORDS AVAILABLE DEPENDS ON MEMORY SIZE. TO CHANGE THE NUMBER OF WO 

RDS, CHANGE UALUE OF LM (LIMIT) IN LINE 30. 

8 ' WORDS ARE STORED IN DATA STATEMENTS. LINE 800 CONTRINS WORDSFOR NOUICES, LIN 
E 900 FOR PROFESSIONALS. CLUES TO THE LRTTER ARESTORED IN LINE 910. CHRNGE THE D 
RTR STRTEMENTS AS REQUIRED. 

9 ' 

10 CLS:PRINT@80 ? "H ft N G H A N . . . . " : PRINT© 192, " YOU HAUE A CHOICE OF PLAYING 
AT NOUICE STRNDRRD OR PROFES5I0NRL STRNDRRD . " : PRINTG384 , "WHEN CHOOSING LETTERS, 
DON' T PRESS THE ' ENTER' KEY . " 

12 PRINT@448, ,l WIN = +5 POINTS, LOSE - -5 POINTS" ;: PRINTS590 , " * * NOTE FOR PROF 

ESSIONRLS * *" :PRINT©640. "YOU GET R CLUE WHEN THE ROPE APPEARS (IF THERE ARE M 

ORE THAN 2 LETTERS LEFT) BUT YOU WILL LOSE 2 POINTS FOR THE CLUE"; 

20 PRINT ©848, "AWAY YOU GO..,. (DON' T GET HANGED U )" 

25 PRINT: INPUT "HIT ENTER TO START THE GAME";X 

30 CLS:CLEARI00:LM=10 

40 DIMCHS* LM),RACLM) 

50 INPUT "NOTICE OR PROFESSIONRL" ; NPS: IFLEFTSC NPS, 1 )= "N"GOTO70 

S0 F0RL= 1T0LM : REftDCHSC L ) : NEXT 

70 FORL- 1TOLM : RE ADCHfcC L ) : NEXT : RANDOM 

80 CLS:DPS=STRINGS( 26, " ' ) :GC=0: CC=0: CL=0: G=G+1 

85 IFG>LMPRINT"CAN' T THINK OF RNY MORE WORDS \ " : END 

90 R=RNDCLM) 

100 F0RL= 1TOG : IFR=RA( L )GOTO90 

110 NEXT: CLS 

130 RRCG)=R:F0RL=1T0LENCCH»CR))*2STEP2:PRINT^L+19, " . " ; : NEXT : PRINTS 1 , 'HIDDEN WORD 

- - > > u 
140 PRINT@970, "CHOOSE R LETTER:"; 
150 RS- " B : AS = INKEYS : IFAS= " " GOTO 150 
152 IFRS=CHRS( 13 )THEN1S0 
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155 PRINT$987.RS; 

160 FORL-1TOLENCBPS) 

179 IFMID$CDPS,L ? 1)=RSPRINT$998, "RLRERDY CHOSEN, DUMMY !";: FORM- 1TO900: NEXT : PRIN 

T$387 , CHRSC 30 ) ; : GQTO150 

188 NEXTL:PRINT©970,CHRSC30); 

190 F0RL=1T0LENCCHSCR); 

200 IF MI DSC CHSC R ) , L, 1 ) =RSTHEN280ELSENEXT ' NOT FOUND 

205 DPS=BPS+RS 

210 GC=GC+1 : ONGCGOSUE420 „ 440 , 500 , 520 , 560 , B00 , 620 , 670 

220 IFGCO8GOTO140 ' GRLLOWS NOT COMPLETE 

230 PRINTG490, 'YOU' RE HUNG ».";: FGRL=1TO900 : NEXT :: PRINTS74 , "THE WORD WRS: ";CHSC 

R); :W=-5 

235 FORL=1TO500:NEXT:PRINT^970,"RNOTHER GRME? CY/N)"; 

237 SC=SC+W:IFLEFTSCNPS,l) = ,, P ,l RNDCSGNCW)==lRNDCL=l)SC=SC-2 

238 PRIWT3174, "SCORE: ";SC; 

240 RS=" " :RS=INKEYS: IFft$= n "GOTO240 

242 IFRS-CHRSC 13 )THEN240 

245 PRINT$991,R$; 

250 IFRS<>"Y M THENCLS:END 

275 GOTOS0 

280 F0RL=1T0LENCCHSCR)) 

230 IFMIDSCCHSCR),L, 1 )=RSPRINT@18+L*2, RS; :CC=CC+1 

300 NEXT 

310 IFCC=LENCCHSCR))PRINT$484,CHRSC30); :PRINT@490, "YOU WIN \ ' ; : W=5 : G0T0235 

320 DPS=DPS+RS: GOTO 140 

390 ' 

400 ' HRNGMRN STRUCTURE GRRPHICS ROUTINE - 8 STRGE5 

420 FORX-25TO80 : SET ( X , 38 > : NEXT : RETURN 

440 F0RY-38T032STEP - 1 : SET C 25 , Y ) : NEXT 

460 F0RY-38TO32STEP-1 : SETC 50, Y ) : NEXT 

480 FORX=25TO50 : SET C X , 32 ) : NEXT : RETURN 

500 F0RY=38TOBSTEP- 1 : SETC 65 , Y ) : NEXT : RETURN 

520 Y=39 : F0RX-58T065 : Y=Y- 1 --SETC X, Y ) : NEXT 

540 Y=39 : F0RX-72T0S5STEP-1 : Y=Y- 1 : SETC X, Y ) : NEXT : RETURN 

560 F0RX=65T037STEP- 1 : SET C X, 8 ) : NEXT 

580 Y= 16 : FORX=65T058STEP- 1 : Y~Y- 1 : SETC X , Y ) : NEXT : RETURN 

500 FORY=8T014STEP2:5ET(37,Y):NEXT: IFLEFTSCNPS, l)="N"ORLENC CHSCR ) )-CC<3RETURN 

610 FORL=1TO10:RERDCS 

613 IFL=RPRINT@832. "CLUE: ° ; : PRINTQ839, CS ; 

616 NEXT : RESTORE : F0RL= 1TO20 : RERDCS : NEXT : CL=1 : RETURN 

620 F0RX-35T039 : SET C X , 14 ) : SETC X , 19 ) : NEXT : SETC 34 , 15 ) : SETC 40, 15 ) : SETC 34 , 18 ) : SETC 40 

» 18 ) : FORY= 16T0 17 : SET C 33 , Y ) : SET C 4 1 , Y ) : NEXT : SET C 36 ? 16 ) : SETC 38 , 18) 

630 FORY=20TO2G : SETC 37,Y): NEXT : X=37 : FORY=25T03i : X=X- 1 : SETC X , Y ) : NEXT : X=37 :F0RY=2S 

T03 1 : X=X+ 1 : SET C X , Y ) : NEXT : SET C 30 , 3 1) : SET C 44 ? 31 ) 

640 F0RX=35T039 : SETC X , 22 ) : NEXT : X=35 : FORY=23T025: X=X- 1 : SET CX , Y ) : NEXT :X=39 : F0RY=23 

T025 : X=X+1 : SETC X ? Y ) : NEXT 

650 PRINT&484, M LRST CHRNCE !";: RETURN 

670 PRINT»4B4,CHRSC30); 

680 FORX=25TO50 : RESET C X , 32 ) : NEXT : F0RY=32T037 : RESETC 25 , Y ) : RESETC 50 , Y ) : NEXT : RETURN 

800 DRTRCOMPUTER , RULER , TRBLE , CRT , MRT , GIRL , BOY , KITTEN , POODLE , MIXER 

900 DRT RD I LAP I DRT ION, SKULDUGGERY , SCRUMPTIOUS , POLYPHONY , PERRMBULRTOR , PERIPHERY , WR 

NTON . UERNRCULRR , EXRCERBRTE , RPERTURE 

910 DRTR-RUN DOWN", "SOME SNEEK • ? " GOOD TO ERT",*WHRT HRRMONY" , "FOR BRBY\. "OUTER L 

IMITS. . . " , "UNBRIDLED" , "STRRIGHT TRLK" , "BUG" , "PEEK-R-BOO ! \ " 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08)3818542 



PAGE 21 



2 ' GAME OF LIFE - BRSIC LISTING 

5 CLS: INPUT "OPERATING SPEED (0) FAST 1 . (9) SLOW" ; Q: Q=Q*250 

10 P0KE16526,62:P0KE16527,81 

20 CLS: PRINT "INITIAL PATTERN BY (OPERATOR OR C OOMPUTER?" : DS=INKEYS: DS=" " 

36 DS-INKEY*: IFD*=" a THEN30ELSEIFDfc="O"THEN50ELSEIFDS="C , *THEN40ELSE30 

40 F0RX=4ST06SSTEP2: F0RY=15T024 : Z-RNDC 03 ) : IFZ< >3THENNEXT : NEXT : GOTO200: ELSESETC X , 

Y):SET(X+1,Y):SET( 127-X, Y ) : SET( 126-X, Y ) : SETtX, 47 -Y ) : SETCX+1 , 47-Y ) : SETC 127-X, 47-Y 

) : SET ( 126- X , 47 - Y ) : NEXT : NEXT : GOTO200 

50 CLS '-PRINT -CONTROL THE CELLS WITH THE KEYS MARKED WITH ARROWS 

PRESSING <S> WILL SET THAT POSITION, AND MOUE THE ' SPOT' IN THE 

PREUIOUS DIRECTION, BUT GOING THROUGH THAT POSITION AGAIN WILL 

WIPE IT OUT. 

<ENTER> WILL START PROGRAMME. ": D*=INKEY$: D*=" " 

55 D*=" " : D*=INKEYS: IFDS=" m THEN55ELSECLS 

60 DS="" :D*=INKEYS:RESETCX,Y):RESET(X+1,Y):IFDS=" ,, THEN150ELSEIFD«=-S"THEN190ELSE 

Z=ASC(DS) 

70 IFZ=91THENY=Y-1 : IFY<0THENY=0: GOTO 150 

80 IFZ=10THENY=Y+1:IFY>47THENY=47:GOTO150 

90 IFZ-9THENX=X+2: IFX>127THENX=127 : GOTO150 

100 IFZ=8THENX=X-2:IFX<0THENX=0:GOTO150 

110 IFZ=13THENGOTO210 

150 SETC X , Y ) : SET ( X+ 1 , Y ) : GOTO60 

190 SET(X,Y):SETCX+1,Y):GOTO70 

200 PRINT»0,*ANY KEY WILL TERMINATE RUN. " : FORT=0TO2000:NEX 

T : PRINTG0 , u " ; : PRINTCHRSC 28 ) ; : PRINTCHRfcC 30 ) ; : 

210 X-USRC0):D$-" n :D*=INKEYS: IFDS< >" "THEN10ELSEFORK=0TOQ: NEXT: GOTO210 



GAME OF LIFE M/C LANGUAGE SUB-ROUTINE - HEX LISTING 
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STOCK RECORDING SYSTEM 

1 D1S=" 2/6/79 n 

654 DRTR 120,654,4, "D u ,69.95,3 

655 DRTR 120,655,6, a B" ,33.95,4 

341 DRTR 14,841 f 2, "15/3/79" ,59.95.2 
978 DRTR 40 , 378 , 20 , n 15/12/78° , 12. 95 , 11 
396 DRTR 21 , 996. S , " 13/2/79" , 43. 95, 6 
1313 DRTR 12*1313,38, "1/11/78" .2.95, 19 
1346 DRTR 12 , 1346 , 10, "D M , 19 . 95, 3 



1873 DRTR 12 
1984 DRTR 31 
2081 DRTR 31 
2432 DRTR 12 
9441 DRTR 21 



1879,3, "20/12/78" , 123.95,2 

1984,7, "10/3/79- ,69.95,5, 40, 1984,5, ■12/3/79" ,59.95,3 

Z081 ,2, w 12/3/79" ,399.95, 1 

2432 . 33 , " 12/6/79 " , 5 . 99 , 25 

344 1 , 4 t B 20/ 1/79" , 149 . 95 , 3 
9453 DRTR 21 ,3458 , 2 , "21/ 12/78" , 449. 95, 1 
3333 DRTR 9999 

10000 CLS :E=9999: PRINT: PRINT: PRINT TREC22)'! NUENTORY" 
10010 PRINT: PRINT TRBC18)"S TOCK CONTROL" 

L3020 REM * PROGRRM BY KEITH NEIGHEOUR * 
10030 FOR N=l TO 1000: NEXT H 

1S040 CLS: PRINT "ENTER NUMBER C ) FOR THE RCTION REQUIRED" 
10050 PRINT:PRINT"C 1 ) TO COMPILE OR ADD TO THE INVENTORY" 
10060 PRINT "( 2 ) TO RLTER OR UP-DRTE INVENTORY ITEMS" 
10070 PRINT "C 3 ) TO REVIEW R COMPLETE SERIES" 
10080 PRINT "C 4 ) TO SEE R PRRTICULRR CRTRLOGUE ITEM" 
10090 INPUT 2: IF 2 1. OR 2>4 THEN CLS: GOTO 10040 
10100 CLS: ON 2 GOTO 10110,10300,10400,10500 

10110 F 1=0: PRINT "TO COMPILE: KEY IN CRTRLOGUE NUMBER RS R NEW LINE NUMBER' 
10120 PRINT "THEN KEY IN THE FOLLOWING C COMMRS RS SHOWN IN EXRMPLE) RND ENTER" 
1Q130 PRINT TRBC r LINE*" ; TRBC 7)" DRTR' " ; TRBC 14 )" SERIES*" ;TRBC23 ) "CRT . #' ;TRBC 30 ) 
"QURNT. " ;TRBC37)"CRT)DRTE" ; TRBC 47 ) "PRICE" ; TRBC 54 ) "QURNT. NOW" 
10140 GOSUB 10250:PRINT "EXRMPLE :" 

10150 GOSUB 18258: PRINT TRBC ) 1313; : GOSUB 10250: PRINTTRBC 8 ) "DRTR" ;: GOSUB 10250:P 
RINT TRBC 15)12; n , "; : GOSUB 10250: PRINT TREC 22) 1313; ", " ;: GOSUB 10250 

10160 PRINT TRBC3D56; " , " ; : GOSUE 18250:PRINT TRBC 37 )" 23/2/79" ; " ,";: GOSUB 10250: 
PRINT TRBC 46)2. 95; M ,"; : GOSUB 18250: PRINT TRBC 56)39 

C NOTE : DRTE MUST 3E ENCLOSED IN QUOTES )": GOSUB 10250: IF Fl-1 THE 

® 640, "IF R COMMON DRTE RPPLIES TO RLL ENTRIES" 
"TYPE (LINE) 1 D1S=' D/M/Y' & ' D' FOR DRTE IN DRTR LINES" 
"HIT RNY KEY TO PROCEED"; 
EY*=" " GOTO 10178 
11080 

S 640, "WHERE MORE THRN ONE ITEM HRS THE SRME CRTRLOGUE NUMBER" 
...... BUT R DIFFERENT SERIES NUMBER )" 

PUT RLL ' SETS ' IN THE SRME DRTR LINE' 
PRINT" r HIT RNY KEY TO PROCEED ) " 
EY*---- GOTO 10220 

1-1 : GOTO 10130 

i TO 100: NEXT N : RETURN 



10170 


PRINT- 


N END 




10172 


PRINT < 


101^4 


PRINT 


10175 


PRINT 


10173 


IF TNK 


10179 


GOSUE 


10163 


PPJNT 


10190 


PRINT " 


10200 


PR I NT" 


10218 


PRINT: 1 


10220 


IF INK 


10230 


CLS : F 


10250 


FOR N- 
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10300 PRINT-TO ALTER OR UP-DRTE ITEMS: KEY ' EDIT 1 & CRTRLOG NO C LINE NO.)" 

10310 PRINT "EDIT RS REQUIRED, THEN ENTER, REPERT RS NECESSARY.' 

10320 PRINT : PRINT " ( HIT RNY KEY TO PROCEED )" 

10330 IF INKEY«="" GOTO 10330 

10348 END 

10400 CLS: PRINT "ENTER SERIES NUMBER" ;: INPUT Si:CLS 

10410 K=l: T=0: GOSUB 11800 

10420 FOR N=l TO E 

10430 RERD S:IF S=E GOTO 11200 

10440 RERD C,Q1,D»:IF BS="D" THEN D«=D1$ 

10445 RERD P,Q2 

10450 IF S=S1 THEN K=K+1: GOSUB 1 1010= T=T+G2*P 

10460 NEXT N 

10S00 CLS '.PRINT "ENTER SERIES NUMBER (COMMA) CRTRLOG NUMBER" ;: INPUT S1,C1:CL5 

10510 K=0:N1=Q: GOSUB 11000 

10520 FOR N=l TO E 

10530 RERD S:IF S=E GOTO 11250 

10540 RERD C,Q1,D«:IF DS="D" THEN DS-Dlf 

10545 RERD P,Q2 

10550 IF C=C1 RND S-Si GOSUB 11010: N1-Q1-G2: U=N1*P: GOTO 10570 

10560 NEXT N 

10570 PRINT --PRINT "NO OF ITEMS SOLD SINCE "",DS; n =";N1;" C URLUE = $";U; ")" 

10580 GOTO 11260 

11000 PRINT TfiBC 0) "SERIES" ; TfiBC 10)"CRT. NO" ;TRBC 20) " QURNT e° ; TfiBC 30 ) "DRTE" ;TRB( 4 

) ■ PRICE * u ; TfiBC 50 ) " QURNT . NOW " : RETURN 

11010 IF K=15 GOSUB 11050 

11020 PRINT TRBC0)S;TRBC5)" -" ; TRBC 10 )C;TRBC 20 )Q1; TRBC 23 )D*;TRBC39 )P;TRBC52)Q2:RE 

TURN 

11050 PRINT 9 960, "C HIT RNY KEY TO TURN THE PRGE )"; 

11060 IF INKEY*="" GOTO 11060 

11070 CLS: GOSUB 11000: K=l: RETURN 

11080 PRINT $ 640, CHRSC 252): PRINT CHRSC 252 ): PRINT CHR*C 252) : RETURN 

11200 PRINT 3960, "TOTAL URLUE OF SERIES* ; SI; * = S";T;" CHIT ENTER TO CONTINUE)";: 

INPUT Z 

11210 RESTORE: GOTO 10040 

11250 PRINT ® 832, "THIS ITEM NO. IS NOT LISTED" 

U260 PRINT £ 896. "FOR OTHER ITEMS HIT ENTER. OTHERWISE ENTER ' 1' " ; 

11270 INPUT 2: RESTORE: IF Z=l GOTO 10040 

11280 GOTO 18500 



S 'MONITOR IN BASIC, UERSION 1.2 

10 CLS:' THIS PROGRRM ENRBLES YOU TO EXRMINE THE HEX OR 

DECIMRL URLUE IN RNY MEMORY LOCRTION RND CHRNGE IT. 

20 CLS:PRINT TREC27 ) ; "COMMRNDS" 

30 PRINT m M ##*## OR"; TRBC 12); '- DISPLRY CONTENTS OF MEMORY" 

40 PRINT "M *##*H B ; TfiBC 12); " LOCRTION *####( DEC) OR *#**CHEX)" 

S0 PRINT" L #**L" ;TRBC 12); "- DISPLRY CONTENTS OF MEMORY LOCRTION " 

60 PRINT TABC12);" *** LESS THRN CURRENT LOCRTION* 

30 PRINT "+ ###+ ";TRBC 12); "- DISPLRY CONTENTS OF MEMORY LOCRTION" 

98 PRINT TRBC 12);* ### MORE THRN CURRENT LOCRTION" 

35 PRINT B D" :TRBC 12); tt - DUMP MEMORY BLOCK TO TRPE" 

106 PRINT n L";TRB(12); "- LORD MEMORY BLOCK FROM TRPE" 

110 PRINT' SPACE BAR"; TfiBC 12); "- DISPLRY CONTENTS OF NEXT MEMORY LOCRTION" 

L20 PRINT TRBC12); n LERUES CURRENT LOCRTION UNCHRNGED. ": PRINT 

130 PRINT "HELP" ; TfiBC 12); "- LIST COMMRND TfiBLE" : PRINT 
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14@ INPUT^ENTER COMMRND REQUIRED" ; Rl* 

150 T$=LEFT*CR1$, 1 ): GOSUE 1000 

160 ON R GOTO 20,165,700,800,28,900,8000,6000 

165 R1*=MID*<:R1*,2) 

17S ' TEST FOR HEX URLUES 

175 H1=0:IF RIGHTSt Rl* , 1 )< > "H" THEN 190 

186 Hl=l:R2*=LEFT*tftl*,5}: GOSUE 3008 

185 R*=STR*tD):GOTO 199 

190 ft*=ftl* 

199 GOTO200 

200 ' DISPLRY RND MODIFY MEMORY IN DECIMRL 
295 IF HI- I THEN 400 

210 PRINT URL C ft*), : GOSUB 4000 

215 PRINT fU . 

220 B*=INKEY*:IFB*=" n THEN 220 ELSE PRINT B* ;: T*=B* : GOSUB 1000 

230 ON R GOTO 253, 28 ,700 ,800 ,340,900, 8000, 6000 

25£ C*=INKEY*:ir CS="* THEN 250 ELSE PRINT C*; :TS«C»: GOSUB 1000 

260 ON R GOTO 286,28,700,800,340,900,8000,6000 

280 DS=INKEYS:IF D*="" THEN 280 ELSE PRINT B* ; : T*=B*: GOSUE 1000 

29Q ON R GOTO 310,20,700,800,340,900,8000,6000 

313 E*=B*+C*+D* 

315 B*=" v :C*="" :D*=- n 

320 IF <URLCE*K0) + CURLCE*)>255) PRINT" ORLUE MUST BE FROM 0-255-: GOTO 200 

330 D=URL(ES>: GOSUE 5000 

34u PRINT :RS=STR$CURL(RS :' + !): GOTO 200 

400 ' BISPLRY RNB MODIFY MEMORY IN HEX 

410. GOSUB 4000 

420 R2*=R*: GOSUB 2060 

430 PRINT H*;* H R , : R2*=STR*( Ml ): GOSUB 2000 

440 PLINTHS, 

450 B*=INKEYS:IF B*="" THEN 450 ELSE PRINT B*; : T*«B»: GOSUB 1000 

460 ON R GOTO 480,20,700,800,525,900,8000,6000 

480 C*=INKEY*:IF C$= " " THEN 480 ELSE PRINT C* ;: T»=C*: GOSUB 1000 

490 ON R GOTO 510,20,700,800,525,900,8000,6000 

510 R2*=B*+Cf: GOSUB 3000 

520 GOSUB 5000 

525 PRINT 

530 R*=STR*CURL< R*^+l ) : GOTO 409 

700 ' RESPOND TO L COMMRND 

710 E*=" " 

730 B*=INKEY*:IF B*=" " THEN 730 ELSE IF B*="t" THEN 745 ELSE PRINT B*; 

740 E*=E*+B*:GOTO 730 

745 IF Hl=l THEN 760 

750 PRINT:R*=STR*CORLCR*)-ORL(E*n:E*=" ,, :GOTO 200 

760 R2*=E*: GOSUB 3000 

770 PRINT : ft*=STR*( UftLt R* ) -D ) : ES=" ": GOTO 400 

800 ' RESPOND TO + COMMRND 

810 E*= w n 

820 B*=INKEY*:IF Bf=" THEN 820 ELSE IF B*='+° THEN 340 ELSE PRINT B*; 

830 E*=E*+B*:GOTO 820 

340 IF Hl=l THEN 860 

850 P<INT:R*-STR*(.URL( A*)+UALCE*)):E*«'":GOT0 200 

860 R2*=E*: GOSUB 3900 

870 PRINT : R*=STR*C URLC fi*)+D ) : E*=- ": GOTO 400 

899 END 

900 GOTO 20 

999 END 

1000 ' TEST INPUT COMMRNE 
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1010 
1020 
1830 
1040 
1050 
1060 
1370 
1080 
1030 
2800 
2010 
2828 
203© 
2858 
2060 
3080 

3010 

3020 
3030 
3840 
3050 
4000 
4010 
4020 
4830 
580& 

5010 
5020 
5038 
6080 

S005 
6010 
602B 
6030 
B040 
6850 
6060 
60G5 
5067 
S07R 
6080 
6085 
6890 
6895 
6100 
6110 
61.20 
6125 
6130 
6148 
6145 
6158 
6288 
3088 
8885 

B8l0 

8020 
8030 



A=l 

IF LEFT*CTS,1) = "M" R=2 
IF LEFT*(T*, 1 )="C" 
1)="+" 
1 )-" B 
1 ) = "H" 
l')='L" 



R=3 
R=4 
A=5 
R=6 
A=7 
R=8 



IF LEFT*CT*, 

IF LEFTISTS*, 

IF LEFT*CTS, 

IF LEFTS' T«, 

IF LEFTSCTS, 

RETURN 

' DECIMAL TQ HEX CONVERSION 

HS= " " : D=URL( R2S ) : Hi*- ' 8123456789RBCDEF " 

D=D/ 16 : Z=C D- INTC D ) )*16 

HS=MIDS( HIS , Z-K , 1 )+H« 

D=INT ( D ) : IF D=@ RETURN 

GOTO 2028 

' HEX TO DECIMAL CONVERSION 

D=0:F=1:FOR H=l TO LENt R2S ) : HS=MIDS( RIGHTSC R2S, H ) , 1 , 1 ) 

IF HS<"R" THEN I=URL< H* V. GOTO 3840 

I=fiSC(HS)-55 

D=I*F+D:F=F*16:NEXT 

RETURN 

' PEEK RT MEMORY LOCATION 

IF 0RL(RS)>32767 THEN 4038 

M1=PEEK( UfiLC R* ) ) : RETURN 

M1=PEEK( - 1*C URL( RS ) -32767 ') ) : RETURN 

' POKE NEW URLUE INTO MEMORY LOCRTION 

IF URLCR*)>32767 THEN 5038 

POKE URL ( R* ; . D : RET URN 

POKE - I*( URLC R* > -32767 ),D: RETURN 

1 LUMP MEMORY TO TRPE 

CLERR 1080:CL5 

INPUT "TITLE" ; TITLE* 

INPUT "STRRT RDDRESS" ; STRRT 

INPUT "FINISH RDDRESS"; FINISH 

INPUT "ENTRY POINT "; ENTRY 

PRINT "RECORDING TITLE BLOCK" : PRINT*- 1 ,TITLE», START, FINISH, ENTRY 

BYTES="" 

FOR C-0 TO 5 

PRINT 

FOP I-10*C TO 10+C+9 

BYTE=-PEEK(STRRT + I): PRINT TRBC C I- 10*C <*5 ) -BYTE; 

IF BYTE=0 THEN 6095 

XS=STRS( BYTE >: GOTO 6100 

XS="-8" 

BYTES=BYTES+XS 

IF STRRT+I=FINISH THEN 6150 

NEXT 1 

NEXT C 

PRINT "-PRINT "RECORDING DRTR" : PRINT*- 1 , BYTE* 

STRF-T=STRRT + I:GOTO 6060 

END 

PRINT -.PRINT 'RECORDING DATR" : PRINT*- 1 , BYTE*: PRINT : PRINT W SRUE COMPLETED 

RETURN 

' LORD MEMORY FROM DRTR TRPE 

CLS:D=0: PRINT "SERRCHING FOR TITLE BLOCK" 

INPUT*- 1 . T ITl.ES > STRRT , FINISH, ENTRY 

PRINT "TITlE'' , "STRRT" , 'FINISH' , "ENTPY" 

PRINT TITlE* , STRRT .FINISH , ENTRY 
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8040 L=CFINISH-STRRT)/60:IF L-INT(L;>0 THEN 8060 

8050 LOOPS=L:GOTO 8070 

8060 LOOPS=INT(L)+l 

8070 FOR 1=0 TO LOOPS- 1 

8080 BS= a " 

8090 PRINT: PRINT "LORDING BLOCK" ; 1+1; "OF" ; LOOPS 

8100 INPUT*- 1, BYTE* 

8110 FOR C=2 TO LENC BYTES) 

8120 CS=MIDS( BYTES. C, 1 ) 

8130 IF CS="- F THEN 8145 

8135 BS=BS+CS 

8140 IF C=LEN( BYTES) THEN 8145 

8142 GOTO 8147 

8145 D=D+5: PRINT TfiBCD) UflLC BS ) ; : POKE STRRT+C, VftLCBS ) : BS=" " : IF D<50 THEN 8147 E 

LSE PRINT :D=0 

8147 NEXT C 

8150 NEXT I 

8160 PRINT: PRINT "LORD COMPLETED" 

8209 RETURN 



APPLICATION FORM 
To: MICRO-8Q, PO BOX 213, GOODWOOD, SA 5034. Phone: (08) 381 8542 

Please send me: 

- CURRENT ISSUE $ 2.50 

- CURRENT ISSUE PLUS CASSETTE $ 6 . 00 

- 12 MONTH SUBSCRIPTION, MAGAZINE ONLY $24.00 

- 12 MONTH SUBSCRIPTION, MAGAZINE PLUS CASSETTE 560. 0C 

- START SUBSCRIPTION FROM (Dec. 79 is issue 1) 

{Make cheques payable to MICRO-8?) 



NAME : 

ADDRESS : 

POST CODE 
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APPLICATION FORM 

FOR PUBLI CATION OF A PROGRAM 

To: MICRO-80 

Please consider the enclosed program for publication: ^^ 

Tick 
IN MICRO-80 »— J one 



ON CASSETTE OR DISK ONLY 

NAME 

ADDRESS 

POST CODE 



□ 

p— l only 



CHECK LIST 

Make sure you have PRINTED the following information clearly on your 
cassette or disk: 

YOUR NAME AND ADDRESS 

PROGRAM NAME 

MEMORY SIZE 

LEVEL 1, LEVEL 2, BASIC 2.2, SYSTEM lor 2, EDTASM 

HOW TO START PROGRAM (Eg. Enter/32000) 

Make sure you include the following information with your cassette or disk 

EXPLANATION OF WHAT THE PROGRAM DOES AND HOW TO USE IT 

DESCRIPTION OF HOW TO CHANGE IT FOR DIFFERENT MEMORY SIZES 
AND DIFFERENT LEVELS OF BASIC 

THE SIZE OF MEMORY REQUIRED AND TYPE OF SYSTEM NEEDED TO RUN IT 

{Eg. LEVEL 1 4K, 32K WITH 2 DISK DRIVES ETC J 

START, END AND ENTRY POINT FOR MACHINE LANGUAGE PROGRAMS 

ANY SIMPLE CHANGES WHICH CAN BE MADE TO MAKE IT MORE FLEXIBLE 

OR USEFUL 

DON'T FORGET A STAMPED SELF -ADDRESSED ENVELOPE IF YOU WANT YOUR 
CASSETTE OR DISK RETURNED. 



